home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
CGETCLR.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-10
|
445b
|
13 lines
SUB GetCharColor (Row%, Col%, Fore%, Back%)
'Purpose : To get the colour attributes of a particular character
' Note : only works in SCREEN 0
'Input : Row% = row where character is at
' Col% = column where the character is at
'Return : Fore% = the foreground colour
' Back% = the background colour
A = SCREEN(Row%, Col%, 1)
Back% = A \ 16
Fore% = A - Back% * 16
END SUB